5 N=0:DIMA$(200,5),CA$(5),C$(6)
10 FORI=1TO5:READA$:CA$(I)=A$:NEXT
11 FORI=1TO6:READA$:C$(I)=A$:NEXT
15 POKE53281,15:POKE53280,12
20 PRINT"[147][144]"TAB(9)"ITEMIZED TAX DEDUCTIONS"
25 PRINT"CHOOSE:"
30 PRINTTAB(5)"1.  LOAD DATA
35 [153][163]5)"2.  ADD RECORD
36 PRINTTAB(5)"3.  FIND A RECORD
40 [153][163]5)"4.  CHANGE RECORD
45 PRINTTAB(5)"5.  DELETE RECORD
50 [153][163]5)"6.  DISPLAY FILE
55 PRINTTAB(5)"7.  PRINT FILE
60 [153][163]5)"8.  SAVE DATA
65 PRINTTAB(5)"9.  END PROGRAM
75 [161]K$:[139]K$[178]""[167]75
80 K[178][197](K$):[139]K[179]1[176]K[177]9[167]75
85 [139]K[178]9[167][158]2048:[128]
90 [145]K[141]100,200,700,300,400,500,600,800
95 [137]20
99 [171][171][171][171][171][143] LOAD DATA-----
100 [153]"LOADLOAD-":F1[178]0:[141]2000
105 [139]F1[167][159]2,1,0,FL$:[137]135
110 [159]15,8,15,"IO"
115 [159]2,8,2,"0:"[170]FL$[170]",S,R"
120 [132]15,E,E$,E1,E2
125 [153]"DISK STATUS:WAIT"E;E$;E1;E2
130 [139]E[167][160]2:[160]15:[153]"FILE NOT LOADED":[141]3000:[142]
135 [132]2,N
140 [129]I[178]1[164]N
145 [129]J[178]1[164]5
150 [132]2,A$(I,J)
170 [130]:[130]
175 [160]2:[139]F1[178]0[167][160]15
180 [142]
199 [171][171][171][171][171][143] ADD DATA-----
200 N[178]N[170]1:X[178]N
210 [153]"LOAD"
220 [141]4000
230 [133]"ANY MORE ENTRIES";I$
240 [139][200](I$,1)[178]"Y"[167]200
250 [142]
299 [171][171][171][171][171][143] CHANGE RECORD-----
300 [153]"LOAD":FL[178]0:F[178]3
310 [133]"CHECK# TO BE CHANGED";N$
315 [141]1000:[139]FL[178]1[167][142]
320 [141]4000:[142]
399 [171][171][171][171][171][143] DELETE-----
400 [153]"LOAD":FL[178]0:F[178]3
410 [133]"CHECK# TO BE DELETED";N$
415 [141]1000:[139]FL[178]1[167][142]
420 N[178]N[171]1
425 [129]I[178]X[164]N
430 [129]J[178]1[164]5
435 A$(I,J)[178]A$(I[170]1,J)
455 [130]:[130]
460 [153]"RECORD DELETED."
470 [141]3000:[142]
499 [171][171][171][171][171][143] VIEW DATA-----
500 R[178]0:F[178]0:J[178]0:TL[178]0:[141]5000
505 [153]"LOAD"
510 [153]"CAT DATE    CK#   DESCRIPTION      AMT"
515 [129]I[178]1[164]39:[153]"USR";:[130]:[153]
520 [129]I[178]1[164]N
535 [139]R[178]2[167][139]N$[179][177]A$(I,F)[167]575
540 J[178]J[170]1
545 [153]A$(I,1);
550 [153][163]4)A$(I,2);
555 [153][163]12)A$(I,3);
560 [153][163]18)[200](A$(I,4),12);
561 [153][163]39[171][195](A$(I,5)))A$(I,5)
565 TL[178]TL[170][197](A$(I,5))
570 [139]J[173]15[178][181](J[173]15)[167][141]3000:[153]"LOAD"
575 [130]
580 [153]"TOTAL:WAIT"TL
585 [141]3000:[142]
599 [171][171][171][171][171][143] PRINT DATA-----
600 R[178]0:F[178]0:TL[178]0:[141]5000
605 [159]2,4:[157]2
607 [153][163]25)"ITEMIZED TAX DEDUCTIONS":[153]
608 [139]R[178]2[175]F[178]1[167][153][163]35[171]([195](C$(G)))[173]2);C$(G):[153]
610 [153][163]5)"CAT"[166]5)"DATE"[166]7)"CHECK#"[166]7)"DESCRIPTION"[166]15)"AMOUNT"
615 [153][163]5);:[129]I[178]1[164]64:[153]"USR";:[130]:[153]
620 [129]I[178]1[164]N
625 [139]R[178]2[175]N$[179][177]A$(I,F)[167]675
645 [153][163]5);A$(I,1);[163]5)A$(I,2);
650 [153][199](16)"25";:[153][163]5[171][195](A$(I,3)))A$(I,3);
655 [153][199](16)"37"A$(I,4);
660 [153][199](16)"60";:[153][163]9[171][195](A$(I,5)))A$(I,5)
665 TL[178]TL[170][197](A$(I,5))
675 [130]
680 [153]:[153][163]25)"TOTAL:"TL
685 [152]2:[160]2:[142]
699 [171][171][171][171][171][143] FIND A RECORD-----
700 [141]5070
710 [141]1000
720 [142]
799 [171][171][171][171][171][143] SAVE DATA-----
800 [153]"LOADSAVE-":F1[178]0:[141]2000
805 [139]F1[167][159]2,1,1,FL$:[137]835
810 [159]15,8,15,"IO"
815 [159]2,8,2,"@0:"[170]FL$[170]",S,W"
820 [132]15,E,E$,E1,E2
825 [153]"DISK STATUS:WAIT"E;E$;E1;E2
830 [139]E[167][160]2:[160]15:[153]"FILE NOT SAVED.":[141]3000:[142]
835 [152]2,N
840 [129]I[178]1[164]N
845 [129]J[178]1[164]5
850 [152]2,A$(I,J)
870 [130]:[130]
875 [160]2:[139]F1[178]0[167][160]15
880 [142]
999 [172][172][172][172][172][143] SORT RECORDS*****
1000 [129]X[178]1[164]N
1010 [139]N$[179][177]A$(X,F)[167]1030
1015 [153]:[129]I[178]1[164]5:[153]A$(X,I):[130]
1020 [133]"IS THIS THE RECORD";I$
1025 [139][200](I$,1)[178]"Y"[167][142]
1027 [153]"LOAD"
1030 [130]
1035 [153]"RECORD NOT FOUND":[141]3000:FL[178]1:[142]
1999 [171][171][171][171][171][143] FILENAME INPUT-----
2000 [133]"FILENAME:WAIT";FL$
2010 [133]"DWAITISK OR TWAITAPE:";K$
2020 [139]K$[179][177]"D"[175]K$[179][177]"T"[167]2010
2030 [139]K$[178]"T"[167]F1[178]1
2040 [142]
3000 [153][163]5)"POKEPRESS ANY KEY TO CONTINUE.WAITSTOP"
3005 [161]K$:[139]K$[178]""[167]3005
3010 [142]
4000 [153]:[129]I[178]1[164]6:[153]I;C$(I):[130]
4001 [133]"CATEGORY#";C$
4002 C[178][197](C$):[139]C[179]1[176]C[177]6[167]4001
4003 A$(X,1)[178][200](C$(C),3)
4005 [129]I[178]2[164]5
4010 [153]CA$(I)":";:[133]A$(X,I)
4020 [130]
4030 [133]"CORRECT";I$
4040 [139][200](I$,1)[178]"N"[167]4000
4050 [142]
5000 [153]"LOAD"
5010 [153]"CHOOSE:"
5020 [153][163]5)"1.  ALL RECORDS
5030 PRINTTAB(5)"2.  BY FIELD
5040 [161]R$:[139]R$[178]""[167]5040
5050 R[178][197](R$):[139]R[179]1[176]R[177]2[167]5000
5060 [139]R[178]1[167][142]
5070 [153]"LOAD"
5080 [153]"CHOOSE:"
5090 [129]I[178]1[164]5
5100 [153][163]5)I".  "CA$(I):[130]
5120 [161]F$:[139]F$[178]""[167]5120
5130 F[178][197](F$):[139]F[179]1[176]F[177]5[167]5070
5135 [139]F[178]1[167]5155
5140 [153]"ENTER "CA$(F);:[133]N$
5150 [142]
5155 [153]:[129]I[178]1[164]6:[153]I;C$(I):[130]
5160 [133]"CATEGORY#";G$
5165 G[178][197](G$):[139]G[179]1[176]G[177]6[167]5160
5170 N$[178][200](C$(G),3)
5175 [142]
6000 [131] CATEGORY, DATE, CHECK#, DESCRIPTION, AMOUNT
6010 [131] MEDICAL, TAXES, INTEREST, CONTRIBUTIONS, CASUALTY/THEFT
6020 [131] MISCELLANEOUS
9000 [159]15,8,15,"S0:TAX DED":[160]15:[148]"@0:TAX DED",8